10 REM **** AHOY! SPEAKS ****
20 REM ***C-64/128 VERSION***
30 REM **BY MORTON KEVELSON**
120 PRINT"[147]":POKE53280,0:POKE53281,6:POKE646,1
125 PRINT"PLEASE READ INSTRUCTIONS IN MAGAZINE..."
130 DRT=56577:DDR=56579:DFL=56578:DCB=56576:REM C-64 USER PORT
140 POKE DDR,127:REM SET DRT FOR OUTPUT
150 A=PEEK(DFL)OR 4
160 POKE(DFL),A:REM SET BIT 2 FOR INPUT
165 GOSUB 3110
2000 REM**SPEAK!!**
2010 FOR I=1 TO 17
2015 READ X
2020 IF PEEK(DRT)>127 GOTO 2020
2030 POKE DRT,X
2035 GOSUB3100
2040 NEXT I:END
3100 POKE DCB,PEEK(DCB)AND251:REM SET CONTROL LINE LOW, UTTER ALLOPHONE
3110 POKE DCB,PEEK(DCB)OR4:REM SET CONTROL LINE HIGH, READY FOR NEXT
3120 RETURN
3999 REM ALLOPHONE DATA
4000 DATA 23,27,5,3
4010 DATA 8,24,16,24,33,58,3
4020 DATA 25,31,43,52,55,3